Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Number")
	.Columns.Add("Format")
	With .Items
		h = .AddItem("1.23")
		.CellValueFormat(h,1) = EXG2ANTTLib.ValueFormatEnum.exComputedField
		.CellValue(h,1) = "2 * %0 + ` (2 * Number)`"
		h = .AddItem("1.23")
		.CellValueFormat(h,1) = EXG2ANTTLib.ValueFormatEnum.exComputedField
		.CellValue(h,1) = "3 * %0 + ` (3 * Number)`"
		h = .AddItem("1.23")
		.CellValueFormat(h,1) = EXG2ANTTLib.ValueFormatEnum.exComputedField
		.CellValue(h,1) = "currency(%0) + ` ( Currency(Number) )`"
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	.Columns.Add("Default")
	With .Chart
		.AllowInsideZoom = True
		.FirstWeekDay = EXG2ANTTLib.WeekDayEnum.exMonday
		.FirstVisibleDate = #3/31/2013#
		.PaneWidth(False) = 52
		.LevelCount = 2
		.UnitScale = EXG2ANTTLib.UnitEnum.exHour
		.Level(1).Label = "<font ;6><%h%></font>"
		.UnitWidth = 14
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
		.AllowInsideZoom = True
		.DefaultInsideZoomFormat.InsideUnit = EXG2ANTTLib.UnitEnum.exMinute
		.AllowResizeInsideZoom = False
		.InsideZoomOnDblClick = False
		With .InsideZooms
			.SplitBaseLevel = False
			.DefaultWidth = 0
		End With
		With .InsideZooms
			.Add(#3/31/2013 11:00:00 PM#)
		End With
	End With
	With .Items
		.AddItem("Item")
	End With
	.EndUpdate()
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub AxG2antt1_Change(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ChangeEvent) Handles AxG2antt1.Change
	With AxG2antt1
		Debug.Print( "NewValue is" )
		Debug.Print( e.newValue )
	End With
End Sub

With AxG2antt1
	With .Columns.Add("DropDownList-String").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
		.AddItem(1,"NYC|New York City")
		.AddItem(2,"CJN|Cluj Napoca")
	End With
	With .Columns.Add("DropDownList-Numeric").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
		.AddItem(1,"New York City")
		.AddItem(2,"Cluj Napoca")
	End With
	With .Items
		.CellValue(.AddItem("NYC"),1) = 2
	End With
End With

With AxG2antt1
	.BeginUpdate()
	With .Columns.Add("Edit")
		.Width = 64
		.AllowSizing = False
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.MaskType
			.Mask = ";;;rich"
		End With
	End With
	.Columns.Add("Empty")
	With .Items
		.AddItem("This is a bit ot long text")
		.AddItem("")
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	With .Columns.Add("DropDown")
		.Width = 64
		.AllowSizing = False
		With .Editor
			.DropDownAlignment = &H20
			.EditType = EXG2ANTTLib.EditTypeEnum.DropDownType
			.AddItem(1,"First item. This is a bit ot long text")
			.AddItem(2,"Second item. This is a bit ot long text")
			.AddItem(3,"Third item. This is a bit ot long text")
			.Mask = ";;;rich"
		End With
	End With
	With .Columns.Add("PickEdit")
		.Width = 64
		.AllowSizing = False
		With .Editor
			.DropDownAlignment = &H20
			.EditType = EXG2ANTTLib.EditTypeEnum.PickEditType
			.AddItem(1,"First item. This is a bit ot long text")
			.AddItem(2,"Second item. This is a bit ot long text")
			.AddItem(3,"Third item. This is a bit ot long text")
			.Mask = ";;;rich"
		End With
	End With
	.Columns.Add("Empty")
	With .Items
		.CellValue(.AddItem("First item. This is a bit ot long text"),1) = "Second item. This is a bit ot long text"
		h = .AddItem("First item. This is a bit ot long text")
		With .CellEditor(h,0)
			.DropDownAlignment = &H20
			.EditType = EXG2ANTTLib.EditTypeEnum.DropDownType
			.AddItem(1,"First item. This is a bit ot long text")
			.AddItem(2,"Second item. This is a bit ot long text")
			.AddItem(3,"Third item. This is a bit ot long text")
		End With
		.CellValue(h,1) = "Second item. This is a bit ot long text"
		With .CellEditor(h,1)
			.DropDownAlignment = &H20
			.EditType = EXG2ANTTLib.EditTypeEnum.PickEditType
			.AddItem(1,"First item. This is a bit ot long text")
			.AddItem(2,"Second item. This is a bit ot long text")
			.AddItem(3,"Third item. This is a bit ot long text")
		End With
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	With .Columns.Add("Date").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DateType
		.Option(EXG2ANTTLib.EditorOptionEnum.exDropDownBackColor) = 15790320
		.Option(EXG2ANTTLib.EditorOptionEnum.exDropDownForeColor) = 65793
	End With
	.Items.AddItem(#1/1/2001#)
	.EndUpdate()
End With

' EditClose event - Occurs when the edit operation ends.
Private Sub AxG2antt1_EditCloseEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.EditCloseEvent
	With AxG2antt1
		With .Items
			.ClearCellBackColor(.FocusItem,AxG2antt1.FocusColumnIndex)
		End With
	End With
End Sub

' EditOpen event - Occurs when the edit operation starts.
Private Sub AxG2antt1_EditOpen(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.EditOpen
	With AxG2antt1
		With .Items
			.CellBackColor(.FocusItem,AxG2antt1.FocusColumnIndex) = RGB(255,0,0)
		End With
		With .Items
			.CellValue(.FocusItem,AxG2antt1.FocusColumnIndex) = AxG2antt1.Items.CellValue(AxG2antt1.Items.FocusItem,AxG2antt1.FocusColumnIndex)
		End With
	End With
End Sub

With AxG2antt1
	.FullRowSelect = EXG2ANTTLib.CellSelectEnum.exColumnSel
	.Columns.Add("C1").Editor.EditType = EXG2ANTTLib.EditTypeEnum.EditType
	.Columns.Add("C2").Editor.EditType = EXG2ANTTLib.EditTypeEnum.EditType
	With .Items
		.CellValue(.AddItem("v1"),1) = "v2"
		.CellValue(.AddItem("v3"),1) = "v4"
	End With
End With

With AxG2antt1
	.BeginUpdate()
	.CauseValidateValue = EXG2ANTTLib.ValidateValueType.exValidateCell
	.FullRowSelect = EXG2ANTTLib.CellSelectEnum.exColumnSel
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
	With .Columns.Add("Date").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DateType
		.Mask = "!99/99/9999;1;;empty=1,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!" & _
",select=4,overtype"
	End With
	With .Items
		.AddItem()
		.AddItem(#1/1/2001#)
		.AddItem()
	End With
	.EndUpdate()
End With

With AxG2antt1
	.Columns.Add("DropDown")
	With .Items
		With .CellEditor(.AddItem(#1/1/2001#),0)
			.EditType = EXG2ANTTLib.EditTypeEnum.DateType
			.DropDownAlignment = EXG2ANTTLib.AlignmentEnum.RightAlignment
		End With
		With .CellEditor(.AddItem(#1/1/2001#),0)
			.EditType = EXG2ANTTLib.EditTypeEnum.DateType
			.DropDownAlignment = EXG2ANTTLib.AlignmentEnum.CenterAlignment
		End With
		With .CellEditor(.AddItem(#1/1/2001#),0)
			.EditType = EXG2ANTTLib.EditTypeEnum.DateType
			.DropDownAlignment = EXG2ANTTLib.AlignmentEnum.LeftAlignment
		End With
		With .CellEditor(.AddItem(#1/1/2001#),0)
			.EditType = EXG2ANTTLib.EditTypeEnum.DateType
			.DropDownAlignment = &H20
		End With
		With .CellEditor(.AddItem(#1/1/2001#),0)
			.EditType = EXG2ANTTLib.EditTypeEnum.DateType
			.DropDownAlignment = &H20 Or EXG2ANTTLib.AlignmentEnum.CenterAlignment
		End With
		With .CellEditor(.AddItem(#1/1/2001#),0)
			.EditType = EXG2ANTTLib.EditTypeEnum.DateType
			.DropDownAlignment = &H20 Or EXG2ANTTLib.AlignmentEnum.RightAlignment
		End With
	End With
End With

With AxG2antt1
	.Columns.Add("DropDown").Editor.EditType = EXG2ANTTLib.EditTypeEnum.DateType
	With .Items
		With .CellEditor(.AddItem(#1/1/2001#),0)
			.EditType = EXG2ANTTLib.EditTypeEnum.DateType
			.DropDownAlignment = &H20
		End With
		With .CellEditor(.AddItem(#1/1/2001#),0)
			.EditType = EXG2ANTTLib.EditTypeEnum.DateType
			.DropDownAlignment = EXG2ANTTLib.AlignmentEnum.exHOutside
		End With
		.AddItem(#1/1/2001#)
	End With
End With

With AxG2antt1
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
	.FullRowSelect = EXG2ANTTLib.CellSelectEnum.exColumnSel
	With .Columns.Add("Float")
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.MaskType
			.Mask = ";;;float,digits=0,grouping=,invalid=empty,warning=invalid character"
		End With
	End With
	.Items.AddItem(192278)
	.Items.AddItem(1000)
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.CauseValidateValue = EXG2ANTTLib.ValidateValueType.exValidateCell
	.FullRowSelect = EXG2ANTTLib.CellSelectEnum.exColumnSel
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
	.Columns.Add("Date")
	.Columns.Add("Mask")
	With .Items
		h = .AddItem(#1/1/2001#)
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.DateType
			.Mask = "{1,12}/{1,31}/{1950,2050};1;;select=1,warning=Invalid character!,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b" & _
">!,validateas=1"
		End With
		.CellValue(h,1) = .CellEditor(h,0).Mask
		h = .AddItem(#1/1/2001#)
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.DateType
			.Mask = "!99/99/9999;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,s" & _
"elect=4,overtype"
		End With
		.CellValue(h,1) = .CellEditor(h,0).Mask
		h = .AddItem(#1/1/2001#)
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.DateType
			.Mask = "!99/99/9999;;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,se" & _
"lect=4,overtype"
		End With
		.CellValue(h,1) = .CellEditor(h,0).Mask
		h = .AddItem(#1/1/2001#)
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.DateType
			.Mask = "!99/99/9999;; ;select=4,overtype,empty,warning=Invalid character!,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</" & _
"b>!,validateas=1"
		End With
		.CellValue(h,1) = .CellEditor(h,0).Mask
		h = .AddItem(#1/1/2001#)
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.DateType
			.Mask = "![0-9 ][0-9 ]/[0-9 ][0-9 ]/[0-9 ][0-9 ][0-9 ][0-9 ];1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%m" & _
"ask%>'</b>!,warning=Invalid character!,select=4,leading= "
		End With
		.CellValue(h,1) = .CellEditor(h,0).Mask
		h = .AddItem(#1/1/2001#)
		.FormatCell(h,0) = "len(value) ? shortdateF(value) : ``"
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.DateType
			.Mask = "!99/99/9999;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,s" & _
"elect=4,overtype,leading"
		End With
		.CellValue(h,1) = .CellEditor(h,0).Mask
		h = .AddItem(#1/1/2001#)
		.FormatCell(h,0) = "len(value) ? shortdateF(value) : ``"
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.DateType
			.Mask = "!00/00/0000;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,s" & _
"elect=4,overtype,leading"
		End With
		.CellValue(h,1) = .CellEditor(h,0).Mask
		h = .AddItem(#1/1/2001#)
		.FormatCell(h,0) = "len(value) ? shortdateF(value) : ``"
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.DateType
			.Mask = "!00/00/0000;;0;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,s" & _
"elect=4,overtype"
		End With
		.CellValue(h,1) = .CellEditor(h,0).Mask
		h = .AddItem(#1/1/2001#)
		.FormatCell(h,0) = "len(value) ? shortdateF(value) : ``"
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.DateType
			.Mask = "!00/00/0000;;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,se" & _
"lect=1,overtype"
		End With
		.CellValue(h,1) = .CellEditor(h,0).Mask
	End With
	.EndUpdate()
End With

With AxG2antt1
	With .Columns.Add("Float")
		.FormatColumn = "value format `0`"
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.MaskType
			.Mask = ";;;float,digits=0"
		End With
	End With
	.Items.AddItem(192278)
End With

With AxG2antt1
	With .Columns.Add("Float")
		.FormatColumn = "value format ``"
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.MaskType
			.Mask = ";;;float"
		End With
	End With
	.Items.AddItem(192278)
End With

Dim h
With AxG2antt1
	.CauseValidateValue = EXG2ANTTLib.ValidateValueType.exValidateCell
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
	.FullRowSelect = EXG2ANTTLib.CellSelectEnum.exColumnSel
	.Columns.Add("Phone").Editor.EditType = EXG2ANTTLib.EditTypeEnum.MaskType
	With .Items
		h = .AddItem()
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.MaskType
			.Mask = "!(999) 000 0000;1;;select=1,empty,overtype,warning=invalid characer,invalid=The value you entered isn't appropriate for the inp" & _
"ut mask <b>'<%mask%>'</b> specified for this field."
		End With
		h = .AddItem("0123")
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.MaskType
			.Mask = "!(999) 000 0000;2;;select=4"
		End With
		h = .AddItem("0123")
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.MaskType
			.Mask = "`Phone: `!(999) 000-0000"
		End With
		h = .AddItem("(074) 876-1222")
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.MaskType
			.Mask = "!(999) 000-0000;0"
		End With
	End With
End With

Dim h
With AxG2antt1
	.Columns.Add("Color").Editor.EditType = EXG2ANTTLib.EditTypeEnum.ColorType
	With .Items
		.AddItem(255)
		h = .AddItem(255)
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.ColorType
			.Mask = "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0"
		End With
		h = .AddItem(255)
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.ColorType
			.Mask = "`&H`XXXXXXXX`&`;;0;overtype,insertype,warning=Wrong!"
		End With
		h = .AddItem(255)
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.ColorType
			.Mask = "`0x`XX `0x`XX `0x`XX;;0;overtype,insertype,warning=Wrong!"
		End With
		h = .AddItem(255)
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.ColorType
			.Mask = "R{0,255} G{0,255} B{0,255};;0;overtype,insertype,warning=Wrong!"
		End With
		h = .AddItem(255)
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.ColorType
			.Mask = "`(hexa) RGB 0x`XXXXXX;;0;overtype,insertype,warning=Wrong!"
		End With
		h = .AddItem(255)
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.ColorType
			.Mask = "`(decimal) Red: `{0,255}` Green: `{0,255}` Blue: `{0,255};;0;overtype,insertype,warning=Wrong!"
		End With
		h = .AddItem(255)
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.ColorType
			.Mask = "`(combine) Red: `{0,255}` Green: 0x`XX` Blue: `{0,255};;0;overtype,insertype,warning=Wrong!"
		End With
	End With
End With

With AxG2antt1
	.Columns.Add("Task")
	With .Chart.Bars
		.Copy("Task","STask").Color = RGB(255,0,0)
		.Add("Task:STask").Shortcut = "TS"
	End With
	With .Chart
		.PaneWidth(False) = 96
		.FirstVisibleDate = #1/1/2001#
		.NonworkingDaysColor = .Bars.Item("STask").Color
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"TS",#1/2/2001#,#1/16/2001#)
	End With
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.CellMerge(e.item,0) = 1
	End With
End Sub

With AxG2antt1
	.MarkSearchColumn = False
	.TreeColumnIndex = -1
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	.Columns.Add("C1").Def(EXG2ANTTLib.DefColumnEnum.exCellSingleLine) = False
	.Columns.Add("C2")
	.Columns.Add("C3")
	With .Items
		.AddItem("This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines.")
		.AddItem("This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines.")
	End With
End With

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxG2antt1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent) Handles AxG2antt1.CellStateChanged
	With AxG2antt1
		With .Items
			.ExpandItem(e.item) = False
		End With
	End With
End Sub

Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	With .Columns
		With .Add("")
			.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
			.AllowSizing = False
			.Width = 18
			.PartialCheck = True
		End With
		.Add("Tasks")
	End With
	.ShowFocusRect = False
	.HasButtons = EXG2ANTTLib.ExpandButtonEnum.exNoButtons
	.TreeColumnIndex = 1
	.Indent = 14
	.ExpandOnDblClick = False
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exNoLinesAtRoot
	With .Items
		h = .AddItem("")
		.CellState(h,0) = 1
		.CellValue(h,1) = "Project"
		hChild = .InsertItem(h,Nothing,"")
		.CellValue(hChild,1) = "Task 1"
		hChild = .InsertItem(h,Nothing,"")
		.CellValue(hChild,1) = "Task 2"
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With

Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	With .Columns
		With .Add("")
			.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
			.AllowSizing = False
			.Width = 18
			.PartialCheck = True
		End With
		.Add("Tasks")
	End With
	.ShowFocusRect = False
	.HasButtons = EXG2ANTTLib.ExpandButtonEnum.exNoButtons
	.TreeColumnIndex = 1
	.Indent = 14
	.ExpandOnDblClick = False
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exNoLinesAtRoot
	With .Items
		h = .AddItem("")
		.CellState(h,0) = 1
		.CellValue(h,1) = "Project"
		hChild = .InsertItem(h,Nothing,"")
		.CellValue(hChild,1) = "Task 1"
		hChild = .InsertItem(h,Nothing,"")
		.CellValue(hChild,1) = "Task 2"
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	With .Chart
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
		.FirstVisibleDate = #1/1/2002#
		.Bars.Item("Task").OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
		.PaneWidth(False) = 128
	End With
	.Columns.Add("Task")
	With .Items
		h = .AddItem("Tasks")
		.AddBar(h,"Task",#1/2/2002#,#1/7/2002#,"A")
		.AddBar(h,"Task",#1/3/2002#,#1/8/2002#,"B")
		.AddBar(h,"Task",#1/4/2002#,#1/9/2002#,"C")
		.ItemBar(h,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 255
		.AddLink("AB",h,"A",h,"B")
		.AddLink("BC",h,"B",h,"C")
	End With
	.EndUpdate()
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub AxG2antt1_Change(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ChangeEvent) Handles AxG2antt1.Change
	With AxG2antt1
		Debug.Print( "NewValue:" )
		Debug.Print( e.newValue )
		Debug.Print( "EditingValue:" )
		Debug.Print( .EditingText )
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.Columns.Add("Edit").Editor.EditType = EXG2ANTTLib.EditTypeEnum.DateType
	.Items.AddItem(#1/1/2001#)
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.ShowLockedItems = True
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exVLines
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		.LockedItemCount(EXG2ANTTLib.VAlignmentEnum.exBottom) = 1
		h = .LockedItem(EXG2ANTTLib.VAlignmentEnum.exBottom,0)
		.ItemBackColor(h) = RGB(128,128,128)
		.ItemForeColor(h) = RGB(255,255,255)
		.CellValue(h,0) = "footer c1"
		.CellValue(h,1) = "footer c2"
		.CellValue(.AddItem("cell"),1) = "cell"
	End With
End With

Dim h
With AxG2antt1
	.ShowLockedItems = True
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exVLines
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		.LockedItemCount(EXG2ANTTLib.VAlignmentEnum.exTop) = 1
		h = .LockedItem(EXG2ANTTLib.VAlignmentEnum.exTop,0)
		.ItemBackColor(h) = RGB(128,128,128)
		.ItemForeColor(h) = RGB(255,255,255)
		.CellValue(h,0) = "footer c1"
		.CellValue(h,1) = "footer c2"
		.CellValue(.AddItem("cell"),1) = "cell"
	End With
End With

With AxG2antt1
	.ColumnAutoResize = True
	.Columns.Add("Sizable")
	With .Columns.Add("F")
		.AllowSizing = False
		.Width = 16
	End With
End With

With AxG2antt1
	.SortBarVisible = True
	With .Columns
		.Add(0)
		.Add(1)
		.Add(2)
		.Add(3)
		.Add(4)
	End With
	.Layout = "multiplesort=""C3:1 C4:2"";singlesort=""C2:1"""
End With

Dim h
With AxG2antt1
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.HistogramVisible = True
		.HistogramHeight = 32
		.Bars.Item("Task").HistogramPattern = EXG2ANTTLib.PatternEnum.exPatternBDiagonal
		.PaneWidth(False) = 128
	End With
	.Columns.Add("Column")
	With .Items
		.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#)
		h = .AddItem("Item 2")
		.AddBar(h,"Task",#1/3/2001#,#1/7/2001#)
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 255
		.AddBar(.AddItem("Item 3"),"Task",#1/6/2001#,#1/9/2001#)
	End With
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
	End With
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 128
	End With
	.Columns.Add("Tasks")
	With .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#)
		h = .AddItem("Task 2")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#)
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 255
		h = .AddItem("Task 3")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#)
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 16777216
		h = .AddItem("Task 4")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#)
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 16777471
		h = .AddItem("Task 5")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#)
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 33619967
	End With
	.EndUpdate()
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub AxG2antt1_Change(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ChangeEvent) Handles AxG2antt1.Change
	With AxG2antt1
		Debug.Print( "Prev Value " )
		Debug.Print( .Items.CellValue(e.item,e.colIndex) )
		Debug.Print( "Check and Update the NewValue" )
		Debug.Print( e.newValue )
		e.newValue = #1/1/2001#
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .Columns.Add("Date")
		.FormatColumn = "day(value) + `/` + month(value) + `/` + year(value)"
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.DateType
			.Mask = "{1,12}\/{1,31}\/{1,2099}"
		End With
	End With
	.Items.AddItem(#1/1/2001#)
	.EndUpdate()
End With

With AxG2antt1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExG2antt\Sample\EBN\frame.ebn")
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exToolTipAppearance,16777216)
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With

With AxG2antt1
	With .Columns.Add("Edit").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.EditType
		.Numeric = EXG2ANTTLib.NumericEnum.exDisableSigns Or EXG2ANTTLib.NumericEnum.exFloatInteger
	End With
	.Items.AddItem(1.22)
End With

With AxG2antt1
	With .Columns.Add("Edit").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.EditType
		.Numeric = EXG2ANTTLib.NumericEnum.exDisablePlus Or EXG2ANTTLib.NumericEnum.exFloatInteger
	End With
	.Items.AddItem(1.22)
End With

With AxG2antt1
	With .Columns.Add("Edit").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.EditType
		.Numeric = EXG2ANTTLib.NumericEnum.exFloatInteger
	End With
	.Items.AddItem(1.22)
End With

With AxG2antt1
	With .Columns.Add("Edit").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.EditType
		.Numeric = &Hfc Or EXG2ANTTLib.NumericEnum.exDisableSigns Or EXG2ANTTLib.NumericEnum.exFloatInteger Or EXG2ANTTLib.NumericEnum.exFloat
	End With
	.Items.AddItem(1)
End With

With AxG2antt1
	With .Columns
		.Add("Value")
		With .Add("CellSingleLine = False")
			.ComputedField = "%0"
			.Def(EXG2ANTTLib.DefColumnEnum.exCellSingleLine) = False
		End With
		With .Add("FormatColumn/replace CRLF")
			.ComputedField = "%0"
			.FormatColumn = "value replace `\r\n` with ``"
		End With
		With .Add("FormatColumn/replace TAB,CRLF")
			.ComputedField = "%0"
			.FormatColumn = "(value replace `\t` with ``) replace `\r\n` with ``"
		End With
	End With
	With .Items
		.AddItem("a\ta\r\nb\tb")
	End With
End With

Dim h1,h2,h3
With AxG2antt1
	.BeginUpdate()
	.DefaultItemHeight = 24
	.Columns.Add("Task")
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
		.NonworkingDays = 0
		.LinksStyle = EXG2ANTTLib.LinkStyleEnum.exLinkSolid
		.ShowLinksColor(EXG2ANTTLib.ShowLinksEnum.exUpdateColorLinksOnly Or EXG2ANTTLib.ShowLinksEnum.exShowLinksStartFrom) = RGB(255,0,0)
		.ShowLinksColor(EXG2ANTTLib.ShowLinksEnum.exUpdateColorLinksOnly Or EXG2ANTTLib.ShowLinksEnum.exShowLinksEndTo) = RGB(0,255,0)
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/2/2001#,#1/4/2001#,"")
		.ItemBar(h2,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected) = True
		.AddLink("L1",h1,"",h2,"")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",#1/2/2001#,#1/4/2001#,"")
		.AddLink("L2",h2,"",h3,"")
		.SchedulePDM(0,"")
	End With
	.EndUpdate()
End With

Dim h1,h2
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.FirstVisibleDate = #9/19/2006#
		.PaneWidth(False) = 64
		.NonworkingDaysPattern = EXG2ANTTLib.PatternEnum.exPatternSolid
		.ShowLinks = EXG2ANTTLib.ShowExtendedLinksEnum.exShowLinksFront Or EXG2ANTTLib.ShowExtendedLinksEnum.exShowExtendedLinks
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#9/20/2006#,#9/22/2006#)
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#9/26/2006#,#9/28/2006#)
		.ItemBar(h2,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected) = True
		.AddLink("L1",h1,"",h2,"")
		.Link("L1",EXG2ANTTLib.LinkPropertyEnum.exLinkText) = "L1"
	End With
	.EndUpdate()
End With

Dim h1,h2,h3
With AxG2antt1
	.BeginUpdate()
	.DefaultItemHeight = 24
	.Columns.Add("Task")
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
		.NonworkingDays = 0
		.LinksStyle = EXG2ANTTLib.LinkStyleEnum.exLinkSolid
		.ShowLinks = EXG2ANTTLib.ShowExtendedLinksEnum.exShowExtendedLinks
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/2/2001#,#1/4/2001#,"")
		.AddLink("L1",h1,"",h2,"")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",#1/2/2001#,#1/4/2001#,"")
		.AddLink("L2",h3,"",h2,"")
		.SchedulePDM(0,"")
	End With
	.EndUpdate()
End With

Dim hSummary,hTask
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.PaneWidth(False) = 128
		.FirstVisibleDate = #1/1/2001#
	End With
	With .Items
		hSummary = .AddItem("Task")
		.AddBar(hSummary,"Task",#1/2/2001#,#1/5/2001#,"K1")
		hTask = .InsertItem(hSummary,Nothing,"Task A")
		.AddBar(hTask,"Task",#1/2/2001#,#1/5/2001#,"K1")
		.AddBar(.InsertItem(hTask,Nothing,"Task A.1"),"Task",#1/3/2001#,#1/5/2001#,"K11")
		.AddBar(.InsertItem(hTask,Nothing,"Task A.2"),"Task",#1/3/2001#,#1/5/2001#,"K12")
		hTask = .InsertItem(hSummary,Nothing,"Task B")
		.AddBar(hTask,"Task",#1/2/2001#,#1/5/2001#,"K2")
		hTask = .InsertItem(hTask,Nothing,"Task B.1")
		.AddBar(hTask,"Task",#1/5/2001#,#1/9/2001#,"K21")
		.ExpandItem(0) = True
		Debug.Print( "Count: " )
		Debug.Print( .ItemBar(0,"<*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
	End With
	.EndUpdate()
End With

Dim hSummary,hTask
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.PaneWidth(False) = 128
		.FirstVisibleDate = #1/1/2001#
		.Bars.Copy("Task","CountTask").Color = RGB(0,255,0)
	End With
	With .Items
		hSummary = .AddItem("Project")
		.ItemBold(hSummary) = True
		hTask = .InsertItem(hSummary,Nothing,"Task A")
		.AddBar(hTask,"CountTask",#1/2/2001#,#1/5/2001#,"K1")
		.AddBar(.InsertItem(hTask,Nothing,"Task A.1"),"CountTask",#1/3/2001#,#1/5/2001#,"K11")
		.AddBar(.InsertItem(hTask,Nothing,"Task A.2"),"CountTask",#1/3/2001#,#1/5/2001#,"K12")
		hTask = .InsertItem(hSummary,Nothing,"Task B")
		.AddBar(hTask,"CountTask",#1/2/2001#,#1/5/2001#,"K2")
		hTask = .InsertItem(hTask,Nothing,"Task B.1")
		.AddBar(hTask,"CountTask",#1/5/2001#,#1/9/2001#,"K21")
		.ExpandItem(0) = True
		.DefaultItem = .ItemByIndex(0)
		Debug.Print( "Count: " )
		Debug.Print( .ItemBar(-3,"<*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
		.DefaultItem = 0
	End With
	.EndUpdate()
End With

Dim hSummary,hTask
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.PaneWidth(False) = 128
		.FirstVisibleDate = #1/1/2001#
		.Bars.Copy("Task","CountTask").Color = RGB(0,255,0)
	End With
	With .Items
		hSummary = .AddItem("Project")
		.ItemBold(hSummary) = True
		hTask = .InsertItem(hSummary,Nothing,"Task A")
		.AddBar(hTask,"Task",#1/2/2001#,#1/5/2001#,"K1")
		.AddBar(.InsertItem(hTask,Nothing,"Task A.1"),"CountTask",#1/3/2001#,#1/5/2001#,"K11")
		.AddBar(.InsertItem(hTask,Nothing,"Task A.2"),"CountTask",#1/3/2001#,#1/5/2001#,"K12")
		hTask = .InsertItem(hSummary,Nothing,"Task B")
		.AddBar(hTask,"Task",#1/2/2001#,#1/5/2001#,"K2")
		hTask = .InsertItem(hTask,Nothing,"Task B.1")
		.AddBar(hTask,"CountTask",#1/5/2001#,#1/9/2001#,"K21")
		.ExpandItem(0) = True
		.DefaultItem = .ItemByIndex(0)
		Debug.Print( "Count: " )
		Debug.Print( .ItemBar(-2,"<*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
		.DefaultItem = 0
	End With
	.EndUpdate()
End With

Dim hSummary,hTask
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.PaneWidth(False) = 128
		.FirstVisibleDate = #1/1/2001#
		.Bars.Copy("Task","CountTask").Color = RGB(0,255,0)
	End With
	With .Items
		hSummary = .AddItem("Project")
		.ItemBold(hSummary) = True
		hTask = .InsertItem(hSummary,Nothing,"Task A")
		.AddBar(hTask,"CountTask",#1/2/2001#,#1/5/2001#,"K1")
		.AddBar(.InsertItem(hTask,Nothing,"Task A.1"),"Task",#1/3/2001#,#1/5/2001#,"K11")
		.AddBar(.InsertItem(hTask,Nothing,"Task A.2"),"Task",#1/3/2001#,#1/5/2001#,"K12")
		hTask = .InsertItem(hSummary,Nothing,"Task B")
		.AddBar(hTask,"CountTask",#1/2/2001#,#1/5/2001#,"K2")
		hTask = .InsertItem(hTask,Nothing,"Task B.1")
		.AddBar(hTask,"Task",#1/5/2001#,#1/9/2001#,"K21")
		.ExpandItem(0) = True
		.DefaultItem = .ItemByIndex(0)
		Debug.Print( "Count: " )
		Debug.Print( .ItemBar(-1,"<*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
		.DefaultItem = 0
	End With
	.EndUpdate()
End With

Dim hSummary,hTask
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.PaneWidth(False) = 128
		.FirstVisibleDate = #1/1/2001#
	End With
	With .Items
		hSummary = .AddItem("Summary")
		.AddBar(hSummary,"Summary",#1/2/2001#,#1/2/2001#,"")
		hTask = .InsertItem(hSummary,Nothing,"Task A")
		.AddBar(hTask,"Task",#1/2/2001#,#1/5/2001#,"K1")
		hTask = .InsertItem(hTask,Nothing,"Task A.1")
		.AddBar(hTask,"Task",#1/3/2001#,#1/5/2001#,"K11")
		hTask = .InsertItem(hSummary,Nothing,"Task B")
		.AddBar(hTask,"Task",#1/2/2001#,#1/5/2001#,"K2")
		hTask = .InsertItem(hTask,Nothing,"Task B.1")
		.AddBar(hTask,"Task",#1/5/2001#,#1/9/2001#,"K21")
		.DefineSummaryBars(hSummary,"",-3,"<K*>")
		.ExpandItem(0) = True
	End With
	.EndUpdate()
End With

Dim hSummary,hTask
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.PaneWidth(False) = 128
		.FirstVisibleDate = #1/1/2001#
	End With
	With .Items
		hSummary = .AddItem("Summary")
		.AddBar(hSummary,"Summary",#1/2/2001#,#1/2/2001#,"")
		hTask = .InsertItem(hSummary,Nothing,"Task A")
		.AddBar(hTask,"1Task",#1/2/2001#,#1/5/2001#,"K1")
		hTask = .InsertItem(hTask,Nothing,"Task A.1")
		.AddBar(hTask,"Task",#1/3/2001#,#1/5/2001#,"K11")
		hTask = .InsertItem(hSummary,Nothing,"Task B")
		.AddBar(hTask,"1Task",#1/2/2001#,#1/5/2001#,"K2")
		hTask = .InsertItem(hTask,Nothing,"Task B.1")
		.AddBar(hTask,"Task",#1/5/2001#,#1/9/2001#,"K21")
		.DefineSummaryBars(hSummary,"",-2,"<K*>")
		.ExpandItem(0) = True
	End With
	.EndUpdate()
End With

Dim hSummary,hTask
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.PaneWidth(False) = 128
		.FirstVisibleDate = #1/1/2001#
	End With
	With .Items
		hSummary = .AddItem("Summary")
		.AddBar(hSummary,"Summary",#1/2/2001#,#1/2/2001#,"")
		hTask = .InsertItem(hSummary,Nothing,"Task A")
		.AddBar(hTask,"Task",#1/2/2001#,#1/5/2001#,"K1")
		hTask = .InsertItem(hSummary,Nothing,"Task B")
		.AddBar(hTask,"Task",#1/4/2001#,#1/8/2001#,"K2")
		.ExpandItem(hSummary) = True
		.DefineSummaryBars(hSummary,"",-1,"<*>")
	End With
	.EndUpdate()
End With

Dim hSummary
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.PaneWidth(False) = 128
		.FirstVisibleDate = #1/1/2001#
	End With
	With .Items
		hSummary = .AddItem("Summary")
		.AddBar(hSummary,"Summary",#1/2/2001#,#1/2/2001#,"summary")
		.AddBar(.AddItem("Task A"),"Task",#1/2/2001#,#1/5/2001#,"K1")
		.AddBar(.AddItem("Task B"),"Task",#1/6/2001#,#1/9/2001#,"K2")
		.AddBar(.AddItem("Task C"),"Task",#1/11/2001#,#1/14/2001#,"K3")
		.DefineSummaryBars(hSummary,"summary",0,"<K*>")
	End With
	.EndUpdate()
End With

' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub AxG2antt1_DblClick(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_DblClickEvent) Handles AxG2antt1.DblClick
	Dim h
	With AxG2antt1
		With .Items
			h = .CellChecked(1234)
			.CellHasCheckBox(0,h) = True
			.CellState(0,h) = 0
			.CellHasCheckBox(0,h) = False
		End With
	End With
End Sub

' SelectionChanged event - Fired after a new item has been selected.
Private Sub AxG2antt1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.SelectionChanged
	With AxG2antt1
		With .Items
			.CellState(.FocusItem,0) = 1
		End With
	End With
End Sub

Dim h
With AxG2antt1
	.MarkSearchColumn = False
	.SelBackColor = RGB(255,255,128)
	.SelForeColor = RGB(0,0,0)
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Radio 1")
		.CellHasRadioButton(h,0) = True
		.CellRadioGroup(h,0) = 1234
		h = .AddItem("Radio 2")
		.CellHasRadioButton(h,0) = True
		.CellRadioGroup(h,0) = 1234
		.CellState(h,0) = 1
		h = .AddItem("Radio 3")
		.CellHasRadioButton(h,0) = True
		.CellRadioGroup(h,0) = 1234
	End With
End With

With AxG2antt1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.TreeColumnIndex = -1
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	.HeaderHeight = 24
	.DefaultItemHeight = 24
	With .Columns.Add("Image")
		.AllowSizing = False
		.Width = 32
		.HTMLCaption = "<img>1</img>"
		.HeaderAlignment = EXG2ANTTLib.AlignmentEnum.CenterAlignment
		.Alignment = EXG2ANTTLib.AlignmentEnum.CenterAlignment
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
	End With
	.Columns.Add("Rest")
	With .Items
		.AddItem("<img>1</img>")
		.AddItem("<img>2</img>")
		.AddItem("<img>3</img>")
	End With
	.EndUpdate()
End With

' BarResize event - Occurs when a bar is moved or resized.
Private Sub AxG2antt1_BarResize(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_BarResizeEvent) Handles AxG2antt1.BarResize
	With AxG2antt1
		.Refresh()
	End With
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	.DefaultItemHeight = 22
	.Columns.Add("InterectBars")
	With .Chart
		.PaneWidth(False) = 48
		.FirstVisibleDate = #1/1/2001#
		With .Bars.Item("Task")
			.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsIntersect
			.Overlaid(EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsIntersect) = "ERROR"
		End With
		With .Bars.Add("ERROR")
			.Color = RGB(255,0,0)
			.Pattern = EXG2ANTTLib.PatternEnum.exPatternSolid
			.Height = 7
		End With
	End With
	With .Items
		h = .AddItem("")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"A","A")
		.AddBar(h,"Task",#1/3/2001#,#1/5/2001#,"B","B")
		.CellValue(h,0) = .IntersectBars(h,"A",h,"B")
		h = .AddItem("")
		.AddBar(h,"Task",#1/6/2001#,#1/9/2001#,"A","A")
		.AddBar(h,"Task",#1/10/2001#,#1/13/2001#,"B","B")
		.CellValue(h,0) = .IntersectBars(h,"A",h,"B")
		h = .AddItem("")
		.AddBar(h,"Task",#1/6/2001#,#1/9/2001#,"B","B")
		.AddBar(h,"Task",#1/10/2001#,#1/13/2001#,"A","A")
		.CellValue(h,0) = .IntersectBars(h,"A",h,"B")
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.HeaderHeight = 32
	With .Columns
		With .Add("ID")
			.HTMLCaption = "<font ;16>ID"
			.Width = 32
			.AllowSizing = False
		End With
		.Add("Task").HTMLCaption = "<font ;16>Task"
	End With
	.FocusColumnIndex = 1
	.ShowFocusRect = False
	.Chart.PaneWidth(True) = 0
	With .Items
		.CellValue(.AddItem(1),1) = "Task A"
		.CellValue(.AddItem(2),1) = "Task B"
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	With .Columns
		With .Add("ID")
			.FormatColumn = "1 index ''"
			.Width = 32
			.AllowSizing = False
		End With
		.Add("Task").Editor.EditType = EXG2ANTTLib.EditTypeEnum.EditType
	End With
	.FocusColumnIndex = 1
	.ShowFocusRect = False
	With .Chart
		.PaneWidth(False) = 128
		.FirstVisibleDate = #1/1/2001#
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
	End With
	AxG2antt1.Template = "Chart.Bars(""Task""){Def(3) = ""<%=%C1%>"";Def(4)=18}"
	.EndUpdate()
End With

Dim hSummary,hTask
With AxG2antt1
	.Columns.Add("Task")
	With .Chart
		.PaneWidth(False) = 128
		.FirstVisibleDate = #1/1/2001#
	End With
	With .Items
		hSummary = .AddItem("Summary")
		.AddBar(hSummary,"Summary",#1/2/2001#,#1/2/2001#)
		hTask = .AddItem("Task A")
		.AddBar(hTask,"Task",#1/2/2001#,#1/5/2001#)
		.DefineSummaryBars(hSummary,"",hTask,"")
		hTask = .AddItem("Task B")
		.AddBar(hTask,"Task",#1/4/2001#,#1/8/2001#)
		.DefineSummaryBars(hSummary,"",hTask,"")
	End With
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.DefaultItemHeight = 24
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	With .Chart
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
		.NonworkingDays = 0
		.PaneWidth(False) = 128
		.FirstVisibleDate = #1/1/2001#
		.Bars.Item("Task").Pattern = EXG2ANTTLib.PatternEnum.exPatternSolid
	End With
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Solid A")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"A")
		.AddBar(h,"Task",#1/5/2001#,#1/7/2001#,"B")
		.ItemBar(h,"B",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 255
		.AddBar(h,"Task",#1/8/2001#,#1/10/2001#,"C")
		.ItemBar(h,"C",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 65280
		h = .AddItem("Solid B")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"A")
		.ItemBar(h,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackColor) = 255
		.AddBar(h,"Task",#1/5/2001#,#1/7/2001#,"B")
		.ItemBar(h,"B",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 255
		.ItemBar(h,"B",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackColor) = 65280
		.AddBar(h,"Task",#1/8/2001#,#1/10/2001#,"C")
		.ItemBar(h,"C",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 16711680
		.ItemBar(h,"C",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackColor) = 16711935
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAEGg4BNUMQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAxDCKsEwsACEIrjKCRShyCYZRhGcTALD8EhhECTZKkAYQEiKLoaRzAcwyDAcQRFCKUJxhEYZa" & _
"i+NobSBQMZqBQgASIUCLZ5ACSYEigAovTULCKwJiWNZDUTRcTxCKQahLLivIhGUYKfgmY5lT5VUT1HS9IShJSmKTlORLOi+M4zUJLc4SVblGz7FyfYDBKygLqqFigLAx" & _
"dDYTRNfzjHiTKbtGA7MADA4DVTAeC2bC+EYVTytY4sHQrIACZ5iWREMhXTi0E4rTa6dTxaS6KzKGqsZbsNAbHLdHTfVy1Mx1XaobqDJZdaTpdjaTDeJSjVjKdx4TZqSi" & _
"zjSGJOgcU4RhcIQDDURhIESXwEGgbQJBQQjeggQBiC4NJAluGJrAUB5Lmmc56n4Pp/i+NQjmqdQ5k2J5+AGAAgCgFgEgAHxQAGfoBmAOA2AaAxghgLgOgMIJ4AoER8mE" & _
"WBSBoNohHKAgZgSYgIHYH4ImCB5OAqBghjiEgcgmIQoioD4IiKGJGCsUgUHiVirmOBQVAEgI=")
		.Add(39,"CP:1 -1 -1 0 0")
		.Add(40,"gBFLBCJwBAEHhEJAEGg4BEcMQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAxDCKsEwsACEIrjKCRShyCYZRhGcTAFD8EhhECTZKkAZwEiKLoaRzAcwyDAcQRFCKUJxlKa5P" & _
"jaLwAAbJMZKAqDDgBIijIqnKA5JoyKIkTzCIJxXScByDGqNaQoehYXhEMg1CTXVgRCKoYTDBKybLqGT6VoCP5vWJaURWHZFTTJOyNagmSJ6XACbQMW7gNYQGBEEigNIx" & _
"ToOU4jFDGIB2VAQRK5BDQbQSFCpIRCCRQYhcQJ6YIAD76HomS5NU7UNKhHSdMy3J6ra5sOqbBqWa5LWjbNq3DadSzvPKub5vexwHwWawSUDkOR5Li+M43S4JPS5bZdDx" & _
"PiWVJrnWOw9F6XxTiGWpsHcO5+C6Xx7kOZpwHoOxeF8T4fkeYJgnEdZwOwQRBnSex9H6f4vk+c5xn4fZQhQBCAg==")
		.Add(41,"gBFLBCJwBAEHhEJAEGg4BQICg6AADACAxRDAMkOQAGaAoDDUMQyQwAAxDSK8EwsACEIrjKCRShyCYZRhGcTALBMIwKGABIRGUZJGDkOYgDCBEhTHDUOwHGyQYDkCQoR" & _
"iYMAwTBQMaTXDdCQ1ECkJomObqAgkMZCTbKMySAA0NgPD6sKSjOIRSDUJZcV5EoAKfiqZIRSJSMZVLLVNSVJipAAlOTZPo6JJuTLOE4WVRcSydH6oAApeg6KoYAFzQAE" & _
"DCbYgOTKBYLUOCwTZmDwTK6BcTtXDbejeYYcZ7DNj2NYtJ4TRCBcpzLLIXrCKg0TBPQ4YNC2DT5VDWIq1aDdQo7MpxWjlGI5Ri2c51UDSYi0G4tDyLSYWXDfFSQTrHDQ" & _
"XhAAghCUAxJgyaB1DkGRyDCKBhAiGwLg0DYhCKDI8CcVwIAwRotBeAYCCmBZ0nsfR+n+L5PlYE53BwTpzn4AIAiAGAOAMfZfmeVBwDuD54C4DYDCCaA6AgQJfHGPJtD+" & _
"YRoGIF4GGGrAAH2RpjjCf4IGIOIKCSCQhmeXBtDqT54i4LYLCKaI6CkfRGlOKgtg2IxYl4OoMkwIYwmkP5jmkAg/hAZAYnAaw6A+eQeEmEgkikKg8BqDkYFCFIlBkThT" & _
"g8BoThif4WGWORqFyFwjkGIJlD+ZgphIY4ZGYWYEmSGQmjGIhthvMpwGcOJPnmTh1h0JxploPAZg4I5+HyH4nlmfh/g8BhTgSf4hGgegagiIlShCYA/miahCg+JBpUIY" & _
"w3k+ehehmJgpioaoWDeKYagAY4oioSZFn2BQfFGCJdD+aoqjKK4rGqWJwGENwPnqTo1i1gtiBgDYzn6PIviuWp+j+DwFnMaJ/jEbB7BqSIyCOQR4lkP5smsQpPjQbQbD" & _
"SWI0C0cR6lmNpqGMCgJDCBZTFyf44G4O4KmSOWTnCVg/m6K4ymuOxu4OWw1E+e5OnWPQvGvYgWg0Q5+nyP4vlvE+OBMTJ/kEcB8BsCJCDATArA6QhxAgeIgkScRMFcFp" & _
"FlCFAEICA")
		.Add(42,"gBFLBCJwBAEHhEJAEGg4BY8MQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAwjQLMEwsACEIrjKCRShyCYZRhGcTALD8EhhECTZKkAYgEiKLoaRzAcwyDAcQRFCKUJxhEY5a" & _
"i+NobRCAUiwHQUBr/I4AKLfeJ5dACKYNShRMrSABMNgZBKpJAqKiqJoiFoRDINIi2BYUIhqGCxYRseyZegmEYWVTREr3HKsVTtAanjZSJakXxnGaQJ7jKaLXo6II8YTI" & _
"WBABaIAQiBahQArOiKchaTZ5YheFRYVBOG4bK6BcguW4qGxSXpuRxZOo2YAFVzNNC3YzkCIcegnIp9ZxeFK5Tg1Z4XKTaNwqPBcYpHPqdVhCOgYZwUb5XMjWNatLYIbo" & _
"ziiUhzCAeJeG6ZAAAiBIUA0JgziGVJkGUGJIBgUYSBEN5VBoGxCEUHItjSFAxBcRhim4dIqFGTB+BUfxfneegAgCYAoBQFR+lQeASAEBRIGESAogMYJ4DoEIEmCaAqAo" & _
"JoGGCbgYgaIYYG4HoHGICByCKAoKmGZBOgkYh4hoKIKmKKI2CmC5giMBINBgY0AjODRjgiXg6g2I8glUKAHEifhBhAJApBYRIRmQOQmAoOgLBIEhMhOJJZD4UoUGUSRC" & _
"FaAoOHKPIAhYZY5GoXIXmWaYGF2GJlgKMB9DmZhpiIZ4aGaSYuG6GomigWgGDmCohmYdIdicWZeHqHRnCgHgIh8aAIBoCA/lAECAg")
	End With
	.Appearance = &H28000000
	.BackColor = RGB(255,255,255)
	.BackColorLevelHeader = RGB(255,255,255)
	.GetOcx().BackColorHeader = &H27000000
	.SelBackColor = RGB(0,0,0)
	.SelForeColor = RGB(255,255,255)
	With .Chart
		.BackColorLevelHeader = &H27000000
		.BackColor = RGB(255,255,255)
		.Bars.Item("Task").Color = &H2a000000
	End With
	.GetOcx().FilterBarBackColor = &H1000000
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exCursorHoverColumn,687865856)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exToolTipAppearance,16777216)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exSplitBar,16777216)
	.EndUpdate()
End With

With AxG2antt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exHeaderFilterBarButton,16777216)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exSplitBar,33488896)
End With

Dim h
With AxG2antt1
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 64
	End With
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Item 1")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"")
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1"
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
	End With
End With

With AxG2antt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	With .Columns
		.Add("Column 1")
		.Add("Column 2")
	End With
	.GetOcx().BackColorHeader = &H1000000
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exCursorHoverColumn,19760895)
End With

With AxG2antt1
	.ColumnAutoResize = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2").Visible = False
	End With
	.VisualAppearance.Add(2,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(3,"c:\exontrol\images\pushed.ebn")
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exColumnsFloatAppearance,33554432)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exColumnsFloatBackColor,50331648)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exColumnsFloatCaptionBackColor,15791606)
	.ColumnsFloatBarVisible = EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeHiddenColumns
End With

With AxG2antt1
	.ColumnAutoResize = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2").Visible = False
	End With
	.VisualAppearance.Add(3,"c:\exontrol\images\pushed.ebn")
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exColumnsFloatBackColor,50331648)
	.ColumnsFloatBarVisible = EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeHiddenColumns
End With

With AxG2antt1
	.VisualAppearance.Add(2,"c:\exontrol\images\normal.ebn")
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exColumnsFloatAppearance,33554432)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exColumnsFloatBackColor,15791606)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exColumnsFloatCaptionBackColor,15791606)
	.ColumnsFloatBarVisible = EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeHiddenColumns
End With

With AxG2antt1
	.ColumnAutoResize = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2").Visible = False
	End With
	.ColumnsFloatBarVisible = EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeHiddenColumns
End With

With AxG2antt1
	.ColumnAutoResize = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2").Visible = False
		With .Add("Column 3")
			.Visible = False
			.Enabled = False
		End With
	End With
	.ColumnsFloatBarVisible = EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeHiddenColumns
End With

With AxG2antt1
	.ColumnAutoResize = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2").Visible = False
		With .Add("Column 3")
			.Visible = False
			.AllowDragging = False
		End With
	End With
	.ColumnsFloatBarVisible = EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeHiddenColumns
End With

With AxG2antt1
	.ColumnAutoResize = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2").Visible = False
	End With
	.set_Description(EXG2ANTTLib.DescriptionTypeEnum.exColumnsFloatBar,"Hidden Columns")
	.ColumnsFloatBarVisible = EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeHiddenColumns
End With

With AxG2antt1
	.ColumnAutoResize = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2").Visible = False
	End With
	.ColumnsFloatBarVisible = EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeHiddenColumns
End With

With AxG2antt1
	With .Columns
		.Add("Column 1")
		.Add("Column 2")
	End With
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
End With

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
	End With
	.Layout = "Select=""0"";SingleSort=""C0:2"";Columns=1"
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
	End With
	.Layout = "gBjAAwAAuABmABpABsAB0ABlAByhoAPIAOEPAA9gYABoABQAgUEg0XN4AOcJicKkpujMbjsfkMFk0YhkQgUOjUEl8gjcGO0ok8KMULjEaGMcj08kQAO8oMkTNEtGwAG" & _
"QAqc7gUlhh1ABtAEsk9GpEfhElgVcsMupNlnlonlaAFcr0shUsp8QPEtnVJqJhmcIhUMh0QiU5sYAqMngUSuEMw07k8Qv0SgVRrNEuVflF2jF5x9JyNEm0TjQijemyE0" & _
"jE3t+YruauoAu4Az1qj9BzRn0UzksSnAA0xDjY6qnAw8OiUQ0dwzN0zWz2t7j8/xURAGNvWH6k8xlEhklhEI0O/6QAgI="
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.ColumnAutoResize = False
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	With .Columns
		With .Add("C0")
			.ExpandColumns = "1,2"
			.DisplayExpandButton = False
		End With
		.Add("C1")
		.Add("C2")
		.Add("C3")
		With .Add("C4")
			.ExpandColumns = "5,6"
			.DisplayExpandButton = False
		End With
		.Add("C5")
		With .Add("C6")
			.ExpandColumns = "6,7"
			.DisplayExpandButton = False
		End With
		.Add("C7")
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	.BackColorLevelHeader = RGB(240,240,240)
	With .Columns
		With .Add("Photo")
			.AllowSizing = False
			.Width = 32
		End With
		.Add("Personal Info")
		.Add("Title")
		.Add("Name")
		.Add("First")
		.Add("Last")
		.Add("Address")
		.Item("Personal Info").ExpandColumns = "2,3"
		With .Item("Name")
			.ExpandColumns = "4,5"
			.Expanded = False
		End With
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.PaneWidth(False) = 128
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
		.UnitWidth = 50
		.FirstVisibleDate = #1/1/2013#
		.LevelCount = 2
		.Level(0).Label = 4096
		.Level(1).Label = "<%h%>:<%nn%>"
		.Level(1).Unit = EXG2ANTTLib.UnitEnum.exMinute
		.Level(1).Count = 60
		.ResizeUnitScale = EXG2ANTTLib.UnitEnum.exMinute
		.ResizeUnitCount = 15
		.AllowInsideZoom = True
		With .DefaultInsideZoomFormat
			.InsideCount = 5
			.InsideUnit = EXG2ANTTLib.UnitEnum.exMinute
			.InsideLabel = "<%nn%>"
		End With
	End With
	With .Items
		.AddItem("Item")
	End With
	.EndUpdate()
End With

With AxG2antt1
	.Chart.PaneWidth(True) = 0
	With .Columns
		.Add("Default")
		With .Add("Format.1")
			.ComputedField = "%0"
			.FormatColumn = "dateF(value) replace `/` with `-`"
		End With
		With .Add("Format.2")
			.ComputedField = "%0"
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
			.FormatColumn = "`<b>`+ shortdate(value) + `</b> ` + timeF(value)"
		End With
		With .Add("Format.3")
			.ComputedField = "%0"
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
			.FormatColumn = "` <b>`+ ( weekday(value) case ( 0 : `Su`; 1 : `Mo`; 2 : `Tu`; 3 : `We`; 4 : `Th`; 5 : `Fr`; 6 : `Sa`) ) + `</b> ` + ( dateF(val" & _
"ue) replace `/` with `-` )"
		End With
	End With
	With .Items
		.AddItem(#1/1/2001 10:00:00 AM#)
		.AddItem(#1/2/2001 10:00:00 AM#)
	End With
End With

Dim h1
With AxG2antt1
	.BeginUpdate()
	.AntiAliasing = True
	With .Chart
		.FirstVisibleDate = #12/26/2000#
		.PaneWidth(False) = 128
	End With
	.Columns.Add("Column")
	With .Items
		h1 = .AddItem("Item 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"A")
		.ItemBar(h1,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "text"
		h1 = .AddItem("Item 2")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"A")
		.ItemBar(h1,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "text outside associated with a bar"
		.ItemBar(h1,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		h1 = .AddItem("Item 3")
		.AddBar(h1,"",#1/2/2001#,#1/2/2001#,"A")
		.ItemBar(h1,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "text with no bar associated"
		h1 = .AddItem("Item 4")
		.AddBar(h1,"Task",#1/2/2001#,#1/5/2001#,"A")
		h1 = .AddItem("Item 5")
		h1 = .AddItem("Item 6")
		h1 = .AddItem("Item 7")
		h1 = .AddItem("Item 8")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"A")
		h1 = .AddItem("Item 8")
		.AddBar(h1,"Task",#1/2/2001#,#1/6/2001#,"A")
	End With
	With .Chart.Notes
		.Add("1S",AxG2antt1.Items.ItemByIndex(3),"A","<font ;6>Movable Note Inside the Bar").PartCanMove(EXG2ANTTLib.NotePartEnum.exNoteStart) = True
		.Add("AK",AxG2antt1.Items.ItemByIndex(6),#1/6/2001#,"Note associated with a date: <%mm%>/<%dd%>/<%yyyy%>")
		With .Add("2S",AxG2antt1.Items.ItemByIndex(7),"A","<font ;6>Fixed Note Left")
			.ShowLink = EXG2ANTTLib.NoteLinkTypeEnum.exNoteLinkHidden
			.PartVOffset(EXG2ANTTLib.NotePartEnum.exNoteEnd) = 0
			.PartHOffset(EXG2ANTTLib.NotePartEnum.exNoteStart) = -32
			.PartShadow(EXG2ANTTLib.NotePartEnum.exNoteEnd) = False
			.PartBackColor(EXG2ANTTLib.NotePartEnum.exNoteEnd) = RGB(255,255,0)
		End With
		With .Add("3S",AxG2antt1.Items.ItemByIndex(8),"A","Start<br><%mmm%> <%d%> <%yyyy%>")
			.PartCanMove(EXG2ANTTLib.NotePartEnum.exNoteEnd) = True
			.PartHOffset(EXG2ANTTLib.NotePartEnum.exNoteEnd) = -64
			.LinkStyle = EXG2ANTTLib.LinkStyleEnum.exLinkDot
			.LinkWidth = 2
			.LinkColor = RGB(0,0,255)
		End With
		With .Add("3F",AxG2antt1.Items.ItemByIndex(8),"A","End<br><%mmm%> <%d%> <%yyyy%>")
			.RelativePosition = 1
			.PartCanMove(EXG2ANTTLib.NotePartEnum.exNoteEnd) = True
			.LinkStyle = EXG2ANTTLib.LinkStyleEnum.exLinkDot
			.LinkWidth = 2
			.LinkColor = RGB(0,0,255)
		End With
	End With
	.EndUpdate()
End With

Dim h1,h2,h3
With AxG2antt1
	.Debug = True
	.Chart.FirstVisibleDate = #1/1/2001#
	.Columns.Add("Column")
	With .Items
		h1 = .AddItem("Item 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"A")
		h2 = .AddItem("Item 2")
		.AddBar(h2,"Task",#1/3/2001#,#1/5/2001#,"B")
		h3 = .AddItem("Item 3")
		.AddBar(h3,"Task",#1/5/2001#,#1/7/2001#,"A")
		.ItemBar(h3,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarParent) = h1
		Debug.Print( "The Bar A of H3 fails to change the parent to H1 as it has already a bar named A" )
		.ItemBar(h3,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarParent) = h2
		Debug.Print( "The Bar A of H3 can be moved to H2, as it contains no bars with the key A" )
	End With
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAEGg4BS4Dg6AADACAxRDAMgBQKAAzQFAYbBmGaGAAGIZhQgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDKAkRRdDSOYDmGQYDiCIoRShOMIjR" & _
"LUXxtDYEIRkSZYJAKCTtBwJAAURRULR6ACUYDnSRqGj6CQKRqEVBSLAdKyXJKvaZhGIRSDUJZkWZEIyjBY8EzXNqrIDoGKqYgOQ4XV5TFgxPR9IyhEAaLrleT5TjOII/" & _
"RpOEpYXSVHxFRAAAYhG4wABCXAAXjYF5Udhlfx3FCvMbqeCcSgOWoDZZRFa0PjVQQtNC4IitGzrMqrNaDSBlGigBauKw3TKlMzye7repOA5+aJGVz7VgfGz7EDjKg0GJ" & _
"cgMex3lOZB5jgPYHHMaYxjeRBilWbZNG4B49l2do6hkfIhECUhjDoHROEYUYMgEbQMCEEx+lGIY0CQUQJHYGoUgQGBFkgB4FmkOINiMbBrAwQoxngSQMCCYJAG8DYCkM" & _
"ZJNDOAhAHCbYGGGOBqByB5hiMcJSDORhwjQKoEkKSIgHoEZEDgWJOECSwyGSGwjkWUJUh8HADiiXA6CSRgQliFwcgcSICB2EJkCKDIAB4CAxDgMoOiOIkfA4CoiDCDhA" & _
"mUEg4hEF4DHKCByA8JYpHIWwbAMIIuC6EIkCiOBwA2QpSHQbgOkoIZMD2GxmnmOhVhUJQiEwYAOAoQZQD6HhnjmaIfBuQ5BlQPQLiMEhuEKIRHmEKA7h+Q5ChQdQPmia" & _
"hCg+JBnDAAhVCVPpoicHYEAobodicKZqHqGAO0YNA0ikQxKg6IYnAqAZcEGKxqnqOowiUZRSFwYwPAqIZkEOLhrjqaIqB4BAqn6QYwCwKwWkSMZECKLo6jKBA7DKTItW" & _
"EZBlA8SpRmwRY1G0exYi0HoEEsbpdjcLZrgaYI4kQQo6laOYEFuIpojQCJiHAZgPksAZ0EePBvDuSp0j2bxrmadY+m8QpGnKP4EHwAwAjsCZxiQQQtAgAQrAiQowhKUB" & _
"/BIcJsEMD5EHETBPBYEhLFwJwZBKMY8G6bAoEaIQMjcIIEkzUZJAscgEEuShyjyKwskucpskQSwuDITJQEyTYzGuMIjBsBBCmiBATjObQDD+UB0E0DxGlCNINASO5PnS" & _
"MQ7E2Uxu3CbQRguUgYFCVR1H0WxYC2R5xDSDgVWiXA8AyNggksXwPDWQQ3FgL4IHERxsluNpdj6bAqAacQckAEQBQWxfDzF4BUYYqBKhEEQNMDgPQGhFGIDgVwKR3iiC" & _
"iIIIgig+BfA2MYOLtAqA4ESCYDIFgVDyGEKkPAQgFBDDwG4DYnQzg5GiDIOAZw3hCDoA8MQIA9PeGEHkRIyx6jiOMEoTAxRMhoCeIwUQKSbCKH6NgV43AECyFeEkEQdB" & _
"TAxC0FESQYhgB+DGPcTwYBXBZEeCIOoKg5j6EIJAbQNxJCjCAMAJwDRxghA4DEBYpk1hnHwH4DIxg3AaFGGgMQFwHhBHgGkewhhCDIHMDkDY0AlAGEAIAgIA=")
		.Add(2,"c:\exontrol\images\normal.ebn")
		.Add(3,"CP:2 2 -4 2 4")
	End With
	With .Chart
		.PaneWidth(False) = 256
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2001#
	End With
	.Columns.Add("Info")
	With .Items
		h = .AddItem("Range Moveable Frame")
		.AddBar(h,"Task",#1/4/2001#,#1/8/2001#,"F")
		.ItemBar(h,"F",EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "This bar can be moved inside the displayed range."
		.ItemBar(h,"F",EXG2ANTTLib.ItemBarPropertyEnum.exBarMinStart) = #1/2/2001#
		.ItemBar(h,"F",EXG2ANTTLib.ItemBarPropertyEnum.exBarMaxEnd) = #1/18/2001#
		.ItemBar(h,"F",EXG2ANTTLib.ItemBarPropertyEnum.exBarShowRange) = 32
		.ItemBar(h,"F",EXG2ANTTLib.ItemBarPropertyEnum.exBarShowRangeTransparent) = 90
		h = .AddItem("Range Moveable Pattern")
		.AddBar(h,"Task",#1/6/2001#,#1/10/2001#,"F")
		.ItemBar(h,"F",EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "This bar can be moved inside the displayed range."
		.ItemBar(h,"F",EXG2ANTTLib.ItemBarPropertyEnum.exBarMinStart) = #1/2/2001#
		.ItemBar(h,"F",EXG2ANTTLib.ItemBarPropertyEnum.exBarMaxEnd) = #1/18/2001#
		.ItemBar(h,"F",EXG2ANTTLib.ItemBarPropertyEnum.exBarShowRange) = 1
		.ItemBar(h,"F",EXG2ANTTLib.ItemBarPropertyEnum.exBarShowRangeTransparent) = 90
		h = .AddItem("Range Moveable EBN Transparent")
		.AddBar(h,"Task",#1/8/2001#,#1/12/2001#,"F")
		.ItemBar(h,"F",EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "This bar can be moved inside the displayed range."
		.ItemBar(h,"F",EXG2ANTTLib.ItemBarPropertyEnum.exBarMinStart) = #1/2/2001#
		.ItemBar(h,"F",EXG2ANTTLib.ItemBarPropertyEnum.exBarMaxEnd) = #1/18/2001#
		.ItemBar(h,"F",EXG2ANTTLib.ItemBarPropertyEnum.exBarShowRange) = 16777216
		.ItemBar(h,"F",EXG2ANTTLib.ItemBarPropertyEnum.exBarShowRangeTransparent) = 50
		h = .AddItem("Range Moveable EBN Opaque 1")
		.ItemHeight(h) = 24
		.AddBar(h,"Task",#1/10/2001#,#1/14/2001#,"F")
		.ItemBar(h,"F",EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "This bar can be moved inside the displayed range."
		.ItemBar(h,"F",EXG2ANTTLib.ItemBarPropertyEnum.exBarMinStart) = #1/2/2001#
		.ItemBar(h,"F",EXG2ANTTLib.ItemBarPropertyEnum.exBarMaxEnd) = #1/18/2001#
		.ItemBar(h,"F",EXG2ANTTLib.ItemBarPropertyEnum.exBarShowRange) = 33554432
		h = .AddItem("Range Moveable EBN Opaque 2")
		.ItemHeight(h) = 24
		.AddBar(h,"Task",#1/12/2001#,#1/16/2001#,"F")
		.ItemBar(h,"F",EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "This bar can be moved inside the displayed range."
		.ItemBar(h,"F",EXG2ANTTLib.ItemBarPropertyEnum.exBarMinStart) = #1/2/2001#
		.ItemBar(h,"F",EXG2ANTTLib.ItemBarPropertyEnum.exBarMaxEnd) = #1/18/2001#
		.ItemBar(h,"F",EXG2ANTTLib.ItemBarPropertyEnum.exBarShowRange) = 50331648
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAEGg4BK8IQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxDMKEEwsACEIrjKCRShyCYZRhGcTAFD8EhhECTY4lCQJAiKLoeQLHMBybJ8LwiGQaRJmeaYR" & _
"DUMI6QjPVARVIkaxhCSSaKpIAIBEB")
	End With
	With .Chart
		.PaneWidth(False) = 0
		.FirstVisibleDate = #1/1/2008#
		.MarkTodayColor = .BackColor
		.LevelCount = 2
		.AllowSelectDate = EXG2ANTTLib.SelectDateEnum.exNoSelectDate
		.MarkSelectDateColor = &H1000000
		.SelectLevel = 1
		.SelectDate(#1/15/2008#) = True
		.SelectDate(#1/18/2008#) = True
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	With .Chart
		.PaneWidth(False) = 0
		.FirstVisibleDate = #1/1/2008#
		.MarkTodayColor = .BackColor
		.LevelCount = 2
		.AllowSelectDate = EXG2ANTTLib.SelectDateEnum.exNoSelectDate
		.MarkSelectDateColor = &H7fff0000
		.SelectLevel = 1
		.SelectDate(#1/15/2008#) = True
		.SelectDate(#1/18/2008#) = True
	End With
	.EndUpdate()
End With

' FilterChange event - Occurs when the filter was changed.
Private Sub AxG2antt1_FilterChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.FilterChange
	With AxG2antt1
		Debug.Print( "If negative, the filter is present, else not" )
		Debug.Print( .Items.VisibleItemCount )
	End With
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.TreeColumnIndex = -1
	.FilterInclude = EXG2ANTTLib.FilterIncludeEnum.exMatchingItemsOnly
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "C1"
	End With
	With .Items
		h = .AddItem("R1")
		.InsertItem(h,Nothing,"C1")
		.InsertItem(h,Nothing,"C2")
		.ExpandItem(h) = True
		h = .AddItem("R2")
		.InsertItem(h,Nothing,"C1")
		.InsertItem(h,Nothing,"C2")
	End With
	.ApplyFilter()
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.TreeColumnIndex = -1
	.FilterInclude = EXG2ANTTLib.FilterIncludeEnum.exMatchingItemsOnly
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "C1|C2"
	End With
	With .Items
		h = .AddItem("R1")
		.InsertItem(h,Nothing,"C1")
		.InsertItem(h,Nothing,"C2")
		.ExpandItem(h) = True
		h = .AddItem("R2")
		.InsertItem(h,Nothing,"C1")
		.InsertItem(h,Nothing,"C2")
	End With
	.ApplyFilter()
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.FilterInclude = EXG2ANTTLib.FilterIncludeEnum.exMatchingItemsOnly
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "C1|C2"
	End With
	With .Items
		h = .AddItem("R1")
		.InsertItem(h,Nothing,"C1")
		.InsertItem(h,Nothing,"C2")
		.ExpandItem(h) = True
		h = .AddItem("R2")
		.InsertItem(h,Nothing,"C1")
		.InsertItem(h,Nothing,"C2")
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Pattern")
	With .Chart
		.FirstWeekDay = EXG2ANTTLib.WeekDayEnum.exMonday
		.FirstVisibleDate = #1/24/2008#
		.PaneWidth(False) = 52
		.LevelCount = 2
	End With
	With .Items
		.AddItem("Default")
		.ItemNonworkingUnits(.AddItem("1/26/2008"),False) = "weekday(value) case (default:0 ; 0:1; 6:(value != #1/26/2008#))"
		.ItemNonworkingUnits(.AddItem("1/27/2008"),False) = "weekday(value) case (default:0 ; 0:(value != #1/27/2008#); 6:1)"
		.ItemNonworkingUnits(.AddItem("Sundays"),False) = "weekday(value) = 0"
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.ScrollBars = EXG2ANTTLib.ScrollBarsEnum.exDisableBoth
	.Chart.ToolTip = ""
	.set_ScrollPartVisible(EXG2ANTTLib.ScrollBarEnum.exVScroll,EXG2ANTTLib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(EXG2ANTTLib.ScrollBarEnum.exHScroll,EXG2ANTTLib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(EXG2ANTTLib.ScrollBarEnum.exHChartScroll,EXG2ANTTLib.ScrollPartEnum.exExtentThumbPart,True)
	.ScrollWidth = 4
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exVSBack,15790320)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exVSThumb,8421504)
	.ScrollHeight = 4
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exHSBack,.get_Background(EXG2ANTTLib.BackgroundPartEnum.exVSBack))
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exHSThumb,.get_Background(EXG2ANTTLib.BackgroundPartEnum.exVSThumb))
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(EXG2ANTTLib.BackgroundPartEnum.exVSBack))
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAEGg4BNACg6AADACAxRDAMgBQKAAzQFAYbhsGCGAAGEZBQgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDEAkRRdDSOYDmGQYDiCIoRShOMaTV" & _
"J8bQ2ASEaAmWK3boUAJFPrFc6ABJMZRRISXJABeKwRoGJYaUhRdDRNCIZBqEqua7iEZRQqCCZkWZPNTRVScByhF61IDpWjKLDKJJwXBMcxyBL0NRxFTAKawGoYbq0AJQ" & _
"VTQcZPVhgAYYfSlMDuOB5Gq+G5SQjhWIgBjde4dRrHYrsGyQAp7JJoWLZMQyFIFIYNTS8LgpPI6LyyP5rABhWw5PiUVyfWTMdwzPatbyKHJicbpepWPxcNYtNzcNb3SA" & _
"bn+KgAmqP5yDiIAACIEhQDSGJOgcU4RhQYwgFUQwIESXxEGgbQJBQQhzHmUAAGILh0lWbpEGIIQQHuegaAaoRYBUBYBCgFAOAOQJgC4CgCCCQAUAQARACgRZFEa3ogCc" & _
"CICDCDZ9AeH5wGgFoHmAUBIA6CJgiALgMAIABYiYER+BuMIyC4CZjAcYgygyYxIlYNoNBGMJGDoCximiXg+g+Yx0G0DgNiOIJGECEZkgQbA7A8A5JA4SITmOZBsEGFJD" & _
"kkLhQhXOItBYEZEGEHBCBARApGIYh1EAaIoAMQIEkENBNBGZpJg4YgCGcAAaGUAAFCmVhqBMZppGADQDACQAmAwAAFgoBh1BSJ4ZFwEEdHmcFmgWag2gEFhoFlINYkoH" & _
"AQAABhKGQX4jGkGQ8BiJ5BDqBAABqKl1GSJxkgAcoqAYAR3lQcIrkaOoSiiEZCBCBAgiqAaJHaLpHBqQoliaBZxHwWYwkUQRMFQExEmENBJBIRIBAgQwQkOYJ0D4DhDg" & _
"CYAzjWQpgjwLgKi2QIWl4CACADeofC4SpsHcHArlqRBqBkbpLAaQoxAUQRQE6PLoCaT40AOYJ6lWNdXlAL4/m2QIql4CRAAQBCAg=")
		.Add(2,"CP:1 -4 -4 4 4")
	End With
	.Columns.Add("Task")
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 128
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	End With
	With .Items
		.AddBar(.AddItem("Task"),"Task",#1/2/2001#,#1/5/2001#,"K1")
		h = .AddItem("Task/ EBN Frame")
		.ItemHeight(h) = 32
		.AddBar(h,"Task",#1/3/2001#,#1/15/2001#,"K2")
		.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor) = 33554432
		h = .AddItem("Task/ EBN Frame")
		.ItemHeight(h) = 32
		.AddBar(h,"Task",#1/3/2001#,#1/15/2001#,"K2")
		.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor) = 50331392
		.AddBar(.AddItem("Task"),"Task",#1/2/2001#,#1/5/2001#,"K3")
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	With .Columns
		.Add("Tasks")
		With .Add("Duration")
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 513
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey) = "A"
		End With
		With .Add("Working")
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 258
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey) = "A"
		End With
	End With
	.Items.AllowCellValueToItemBar = True
	With .Chart
		.PaneWidth(False) = 256
		.FirstVisibleDate = #1/3/2002#
		.LevelCount = 2
	End With
	With .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",#1/4/2002#,#1/8/2002#,"A")
	End With
	.EndUpdate()
End With

' BarResize event - Occurs when a bar is moved or resized.
Private Sub AxG2antt1_BarResize(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_BarResizeEvent) Handles AxG2antt1.BarResize
	With AxG2antt1
		.Refresh()
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	With .Columns.Add("<fgcolor=FF0000>Tasks > 2 days")
		.HTMLCaption = .Caption
	End With
	With .Columns.Add("PropertyBar")
		.Visible = False
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey) = ""
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 513
	End With
	.Items.AllowCellValueToItemBar = True
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 96
		.NonworkingDays = 0
	End With
	With .ConditionalFormats.Add("%1 > 2")
		.ForeColor = RGB(255,0,0)
		.Bold = True
	End With
	.SelBackColor = .BackColor
	.SelForeColor = .ForeColor
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"")
		.AddBar(.AddItem("Task 2"),"Task",#1/4/2001#,#1/7/2001#,"")
		.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"")
	End With
	.EndUpdate()
End With

' BarResize event - Occurs when a bar is moved or resized.
Private Sub AxG2antt1_BarResize(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_BarResizeEvent) Handles AxG2antt1.BarResize
	With AxG2antt1
		.Items.SchedulePDM(e.item,e.key)
		.Refresh()
	End With
End Sub

Dim h1,h2,h3,h4
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Columns.Add("PropertyBar")
		.Visible = False
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey) = ""
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 269
	End With
	.Items.AllowCellValueToItemBar = True
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
		.NonworkingDays = 0
	End With
	With .ConditionalFormats.Add("%1 != 0")
		.ForeColor = RGB(255,0,0)
		.Bold = True
	End With
	.SelBackColor = .BackColor
	.SelForeColor = .ForeColor
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/2/2001#,#1/4/2001#,"")
		.AddLink("L1",h1,"",h2,"")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",#1/2/2001#,#1/4/2001#,"")
		.AddLink("L2",h2,"",h3,"")
		h4 = .AddItem("Task 3")
		.AddBar(h4,"Task",#1/2/2001#,#1/3/2001#,"")
		.AddLink("L3",h2,"",h4,"")
		.DefSchedulePDM(EXG2ANTTLib.DefSchedulePDMEnum.exPDMCriticalPathBarColor) = 255
		.DefSchedulePDM(EXG2ANTTLib.DefSchedulePDMEnum.exPDMCriticalPathLinkColor) = 255
		.SchedulePDM(0,"")
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 128
		With .Bars
			.AddShapeCorner(12345,1)
			With .Copy("Milestone","Original")
				.StartShape = &H3020 Or EXG2ANTTLib.ShapeCornerEnum.exShapeIconVBar Or EXG2ANTTLib.ShapeCornerEnum.exShapeIconRight
				.StartColor = -1
			End With
			With .Copy("Milestone","Red")
				.StartShape = &H3020 Or EXG2ANTTLib.ShapeCornerEnum.exShapeIconVBar Or EXG2ANTTLib.ShapeCornerEnum.exShapeIconRight
				.StartColor = RGB(255,0,0)
			End With
			With .Copy("Milestone","Green")
				.StartShape = &H3020 Or EXG2ANTTLib.ShapeCornerEnum.exShapeIconVBar Or EXG2ANTTLib.ShapeCornerEnum.exShapeIconRight
				.StartColor = RGB(0,255,0)
			End With
		End With
	End With
	.Columns.Add("Column")
	With .Items
		.AddBar(.AddItem("Original"),"Original",#1/2/2001#,#1/2/2001#)
		.AddBar(.AddItem("Red"),"Red",#1/2/2001#,#1/2/2001#)
		.AddBar(.AddItem("Green"),"Green",#1/2/2001#,#1/2/2001#)
	End With
	.EndUpdate()
End With

With AxG2antt1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Chart.FirstVisibleDate = #1/1/2001#
	With .Chart.Bars
		.AddShapeCorner(12345,1)
		With .Item("Milestone")
			.StartShape = &H3020 Or EXG2ANTTLib.ShapeCornerEnum.exShapeIconVBar Or EXG2ANTTLib.ShapeCornerEnum.exShapeIconRight
			.StartColor = -1
		End With
	End With
	.Columns.Add("Column")
	With .Items
		.AddBar(.AddItem("Item 1"),"Milestone",#1/2/2001#,#1/2/2001#)
	End With
End With

Dim h
With AxG2antt1
	.Chart.PaneWidth(False) = 128
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Item")
		AxG2antt1.Chart.ItemBackColor(h) = RGB(0,255,0)
		AxG2antt1.Items.ItemBackColor(h) = RGB(0,255,0)
	End With
End With

' BarResize event - Occurs when a bar is moved or resized.
Private Sub AxG2antt1_BarResize(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_BarResizeEvent) Handles AxG2antt1.BarResize
	With AxG2antt1
		.Items.SchedulePDM(e.item,e.key)
	End With
End Sub

Dim h1,h2,h3,h4
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
		.NonworkingDays = 0
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/2/2001#,#1/4/2001#,"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",#1/2/2001#,#1/4/2001#,"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
		h4 = .AddItem("Task 3")
		.AddBar(h4,"Task",#1/2/2001#,#1/3/2001#,"K4")
		.AddLink("L3",h2,"K2",h4,"K4")
		.DefSchedulePDM(EXG2ANTTLib.DefSchedulePDMEnum.exPDMCriticalPathBarColor) = 255
		.DefSchedulePDM(EXG2ANTTLib.DefSchedulePDMEnum.exPDMCriticalPathLinkColor) = 255
		.SchedulePDM(0,"K1")
	End With
	.EndUpdate()
End With

With AxG2antt1
	With .Chart
		.FirstWeekDay = .LocFirstWeekDay
		.MonthNames = .LocMonthNames
		.WeekDays = .LocWeekDays
		.AMPM = .LocAMPM
		.LevelCount = 2
		.PaneWidth(False) = 0
		.UnitScale = EXG2ANTTLib.UnitEnum.exDay
		With .Level(0)
			.Label = "<%mmmm%> <%d%>, <%loc_yyyy%> <r><%ww%>"
			.Unit = EXG2ANTTLib.UnitEnum.exWeek
			.ToolTip = .Label
		End With
		.ToolTip = "<%ddd%> <%m%>/<%d%>/<%loc_yyyy%>"
	End With
	.set_Description(EXG2ANTTLib.DescriptionTypeEnum.exFilterBarDateMonths,.Chart.MonthNames)
	.set_DefaultEditorOption(EXG2ANTTLib.EditorOptionEnum.exDateMonths,.Chart.MonthNames)
End With

With AxG2antt1
	With .Chart
		.FirstWeekDay = .LocFirstWeekDay
		.MonthNames = .LocMonthNames
		.WeekDays = .LocWeekDays
		.AMPM = .LocAMPM
		.LevelCount = 2
		.PaneWidth(False) = 0
	End With
End With

Dim h
With AxG2antt1
	With .VisualAppearance
		.Add(1,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task--.ebn")
		.Add(2,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task-.ebn")
		.Add(3,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task.ebn")
		.Add(4,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task+.ebn")
		.Add(5,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task++.ebn")
	End With
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 128
		.NonworkingDays = 0
		.Bars.Copy("Task","--").Color = &H1000000
		.Bars.Copy("Task","-").Color = &H2000000
		.Bars.Item("Task").Color = &H3000000
		.Bars.Copy("Task","+").Color = &H4000000
		.Bars.Copy("Task","++").Color = &H5000000
	End With
	.Columns.Add("Brightness")
	With .Items
		h = .AddItem("0%")
		.AddBar(h,"--",#1/2/2001#,#1/4/2001#,"--")
		.AddBar(h,"-",#1/5/2001#,#1/7/2001#,"-")
		.AddBar(h,"Task",#1/8/2001#,#1/10/2001#,"")
		.AddBar(h,"+",#1/11/2001#,#1/13/2001#,"+")
		.AddBar(h,"++",#1/14/2001#,#1/16/2001#,"++")
		h = .AddItem("25%")
		.AddBar(h,"--",#1/2/2001#,#1/4/2001#,"--")
		.AddBar(h,"-",#1/5/2001#,#1/7/2001#,"-")
		.AddBar(h,"Task",#1/8/2001#,#1/10/2001#,"")
		.AddBar(h,"+",#1/11/2001#,#1/13/2001#,"+")
		.AddBar(h,"++",#1/14/2001#,#1/16/2001#,"++")
		.ItemBar(h,"<*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent) = 25
		h = .AddItem("50%")
		.AddBar(h,"--",#1/2/2001#,#1/4/2001#,"--")
		.AddBar(h,"-",#1/5/2001#,#1/7/2001#,"-")
		.AddBar(h,"Task",#1/8/2001#,#1/10/2001#,"")
		.AddBar(h,"+",#1/11/2001#,#1/13/2001#,"+")
		.AddBar(h,"++",#1/14/2001#,#1/16/2001#,"++")
		.ItemBar(h,"<*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent) = 50
		h = .AddItem("75%")
		.AddBar(h,"--",#1/2/2001#,#1/4/2001#,"--")
		.AddBar(h,"-",#1/5/2001#,#1/7/2001#,"-")
		.AddBar(h,"Task",#1/8/2001#,#1/10/2001#,"")
		.AddBar(h,"+",#1/11/2001#,#1/13/2001#,"+")
		.AddBar(h,"++",#1/14/2001#,#1/16/2001#,"++")
		.ItemBar(h,"<*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent) = 75
	End With
End With

Dim h
With AxG2antt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	With .Chart
		.Bars.Item("Task").Color = &H1000000
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 128
	End With
	.Columns.Add("Brightness")
	With .Items
		h = .AddItem("0%")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#)
		h = .AddItem("25%")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#)
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent) = 25
		h = .AddItem("50%")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#)
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent) = 50
		h = .AddItem("75%")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#)
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent) = 75
	End With
End With

Dim h,h1,h2,h3
With AxG2antt1
	.BeginUpdate()
	.MarkSearchColumn = False
	.OnResizeControl = EXG2ANTTLib.OnResizeControlEnum.exResizeChart
	.Columns.Add("Tasks")
	.Columns.Add("Start").Visible = False
	.Columns.Add("End").Visible = False
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #9/18/2006#
		.PaneWidth(False) = 64
		.ScrollRange(EXG2ANTTLib.ScrollRangeEnum.exStartDate) = .FirstVisibleDate
		.ScrollRange(EXG2ANTTLib.ScrollRangeEnum.exEndDate) = #12/31/2006#
		.MarkSelectDateColor = &H7fff0000
		.SelectLevel = 1
		.SelectDate(#9/19/2006#) = True
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exNoCreateBar
		.AllowLinkBars = False
	End With
	With .Items
		h = .AddItem("Project")
		.CellValue(h,1) = #9/21/2006#
		.CellValue(h,2) = #10/3/2006#
		.AddBar(h,"Summary",.CellValue(h,1),.CellValue(h,2),"sum")
		h1 = .InsertItem(h,Nothing,"Task 1")
		.CellValue(h1,1) = .CellValue(h,1)
		.CellValue(h1,2) = #9/24/2006#
		.AddBar(h1,"Task",.CellValue(h1,1),.CellValue(h1,2),"K1")
		.ItemBar(h1,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarMinStart) = #9/20/2006#
		h2 = .InsertItem(h,Nothing,"Task 2")
		.CellValue(h2,1) = .CellValue(h1,2)
		.CellValue(h2,2) = #9/28/2006#
		.AddBar(h2,"Unknown",.CellValue(h2,1),.CellValue(h2,2),"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		h3 = .InsertItem(h,Nothing,"Task 3")
		.CellValue(h3,1) = .CellValue(h2,2)
		.CellValue(h3,2) = .CellValue(h,2)
		.AddBar(h3,"Task",.CellValue(h3,1),.CellValue(h3,2),"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
		.GroupBars(h1,"K1",False,h2,"K2",True,31,"0;4")
		.GroupBars(h2,"K2",False,h3,"K3",True,31,"0;2")
		.DefineSummaryBars(h,"sum",h1,"K1")
		.DefineSummaryBars(h,"sum",h2,"K2")
		.DefineSummaryBars(h,"sum",h3,"K3")
		.ExpandItem(h) = True
		.ItemBold(h) = True
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.MarkSearchColumn = False
	With .Columns
		With .Add("Car")
			.DisplayFilterButton = True
			.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
			.Filter = "MAZDA"
		End With
		With .Add("Equipment")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.CustomFilter = "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
			.FilterType = EXG2ANTTLib.FilterTypeEnum.exPattern
			.Filter = "AIR BAG"
		End With
	End With
	With .Items
		.CellValue(.AddItem("Mazda"),1) = "Air Bag"
		.CellValue(.AddItem("Toyota"),1) = "Air Bag,Air condition"
		.CellValue(.AddItem("Ford"),1) = "Air condition"
		.CellValue(.AddItem("Nissan"),1) = "Air Bag,ABS,ESP"
		.CellValue(.AddItem("Mazda"),1) = "Air Bag, ABS,ESP"
		.CellValue(.AddItem("Mazda"),1) = "ABS,ESP"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.MarkSearchColumn = False
	With .Columns
		With .Add("Car")
			.DisplayFilterButton = True
			.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilterDoCaseSensitive Or EXG2ANTTLib.FilterTypeEnum.exFilter
			.Filter = "Mazda"
		End With
		With .Add("Equipment")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.CustomFilter = "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
			.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilterDoCaseSensitive Or EXG2ANTTLib.FilterTypeEnum.exPattern
			.Filter = "Air Bag"
		End With
	End With
	With .Items
		.CellValue(.AddItem("Mazda"),1) = "Air Bag"
		.CellValue(.AddItem("Toyota"),1) = "Air Bag,Air condition"
		.CellValue(.AddItem("Ford"),1) = "Air condition"
		.CellValue(.AddItem("Nissan"),1) = "Air Bag,ABS,ESP"
		.CellValue(.AddItem("Mazda"),1) = "Air Bag, ABS,ESP"
		.CellValue(.AddItem("Mazda"),1) = "ABS,ESP"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

Dim h1
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"",#1/2/2001#,#1/8/2001#,"K1","Leave Blank")
		.ItemBar(h1,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarSelectable) = False
		.ItemBar(h1,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackColor) = 255
	End With
	.EndUpdate()
End With

' ChartEndChanging event - Occurs after the chart has been changed.
Private Sub AxG2antt1_ChartEndChanging(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ChartEndChangingEvent) Handles AxG2antt1.ChartEndChanging
	With AxG2antt1
		Debug.Print( "End Operation(exVSplitterChange(10)" )
		Debug.Print( e.operation )
		Debug.Print( "PaneWidth:" )
		Debug.Print( .Chart.PaneWidth(False) )
	End With
End Sub

' ChartStartChanging event - Occurs when the chart is about to be changed.
Private Sub AxG2antt1_ChartStartChanging(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ChartStartChangingEvent) Handles AxG2antt1.ChartStartChanging
	With AxG2antt1
		Debug.Print( "Start Operation(exVSplitterChange(10)" )
		Debug.Print( e.operation )
		Debug.Print( "PaneWidth:" )
		Debug.Print( .Chart.PaneWidth(False) )
	End With
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #12/29/2000#
		.PaneWidth(False) = 64
		.LevelCount = 2
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1")
		.AddBar(.AddItem("Task 2"),"Task",#1/4/2001#,#1/6/2001#,"K2")
		.AddBar(.AddItem("Task 3"),"Task",#1/8/2001#,#1/10/2001#,"K3")
		h = .AddItem("")
		.AddBar(h,"",#1/8/2001#,#1/10/2001#,"","<b>Right click</b> the chart, start dragging to select multiple bars<br>or click a bar while pressing the <b>CTRL</b> key")
		.ItemHeight(h) = 36
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarSelectable) = False
	End With
	.EndUpdate()
End With